home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / MacMETH 3.2.4 / Examples / XYplane.DEF < prev    next >
Text File  |  1996-06-20  |  278b  |  20 lines
  1. DEFINITION MODULE XYplane;
  2.  
  3.     CONST
  4.         draw = 1;
  5.         erase = 0;
  6.  
  7.     VAR
  8.         H: INTEGER;
  9.         W: INTEGER;
  10.         X: INTEGER;
  11.         Y: INTEGER;
  12.  
  13.     PROCEDURE Clear;
  14.     PROCEDURE Dot (x, y, mode: INTEGER);
  15.     PROCEDURE IsDot (x, y: INTEGER): BOOLEAN;
  16.     PROCEDURE Key (): CHAR;
  17.     PROCEDURE Open;
  18.  
  19. END XYplane.
  20.